DECLARE FUNCTION AllocMem& LIBRARY
 LIBRARY "intuition.library"
 LIBRARY "exec.library"

 PRINT " Please click mouse to start.
 WHILE MOUSE(0)=0:WEND
 WHILE MOUSE(0)<>0:WEND
  
 Chip%=2
 RESTORE  
 ON BREAK GOSUB NoBreak
 BREAK ON
 
FOR J=1 TO 9 
 READ PHeight%,PWidth%,PXoffset%,PYoffset%
 
 PSize&=2*(2*PHeight%+3)
 
 Mem&=AllocMem&(PSize&,Chip%)
 
 FOR I&=Mem& TO (Mem&+PSize&) STEP 2
   READ X%
   POKEW I&,X%
 NEXT
 
 CALL SetPointer(WINDOW(7),Mem&,PHeight%,PWidth%,PXoffset%,PYoffset%)
 
 PRINT " SetPointer #";J
 PRINT " Click mouse for next pointer.
 
 WHILE MOUSE(0)<>0:WEND
 WHILE MOUSE(0)=0
   PSET(MOUSE(1),MOUSE(2)),RND*3.5
 WEND
 
 CALL ClearPointer(WINDOW(7))
 PRINT "   Cleared Pointer #";J
    
 CALL FreeMem(Mem&,PSize&)
NEXT
 
 LIBRARY CLOSE
 PRINT "Was it good for you too?
 END

NoBreak:
 RETURN
  
PointerData:
  ' multi-colored "X"
  DATA 9,9,-5,-4
  DATA &H0000 , &H0000
  DATA &HC180 , &H4100
  DATA &H6380 , &HA280
  DATA &H3700 , &H5500
  DATA &H1600 , &H2200
  DATA &H0000 , &H0000
  DATA &H1600 , &H2200
  DATA &H2300 , &H5500
  DATA &H4180 , &HA280
  DATA &H8080 , &H4100
  DATA &H0000 , &H0000

PointerData2:
  ' mono-colored "X"  
  DATA 9,9,-5,-4
  DATA &H0000 , &H0000
  DATA &H8080 , &H0000
  DATA &H4100 , &H0000
  DATA &H2200 , &H0000
  DATA &H1400 , &H0000
  DATA &H0000 , &H0000
  DATA &H1400 , &H0000
  DATA &H2200 , &H0000
  DATA &H4100 , &H0000
  DATA &H8080 , &H0000
  DATA &H0000 , &H0000

PointerData3:
  ' multi-colored "S!"  
  DATA 9,9,-5,-4
  DATA &H0000 , &H0000
  DATA &H0FC3 , &H0000
  DATA &H3FF3 , &H0000
  DATA &H30C3 , &H0000
  DATA &H0000 , &H3C03
  DATA &H0000 , &H3FC3
  DATA &H0000 , &H03C3
  DATA &HC033 , &HC033
  DATA &HFFC0 , &HFFC0
  DATA &H3F03 , &H3F03
  DATA &H0000 , &H0000

PointerData4:
  ' multi-colored box  
  DATA 13,16,-8,-6
  DATA &H0000 , &H0000
  DATA &HFFFE , &HFFFE
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006 
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006
  DATA &HFFFE , &HC006  
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006
  DATA &HC106 , &HC006  
  DATA &HC106 , &HC006
  DATA &HFFFE , &HFFFE
  DATA &H0000 , &H0000

PointerData5:
  ' multi-colored box  
  DATA 13,16,-8,-6
  DATA &H0000 , &H0000
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0  
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0
  DATA &HFC7E , &H02FE
  DATA &H0 , &H0  
  DATA &HFC7E , &H02FE
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0  
  DATA &H440 , &H2C0
  DATA &H440 , &H2C0
  DATA &H0000 , &H0000

PointerData6:
  ' arrow  
  DATA 8,9,1,1
  DATA &H0 , &H0
  DATA &HFC00 , &H0
  DATA &HF000 , &H0
  DATA &HCE00 , &H0 
  DATA &H380 , &H0 
  DATA &HE0 , &H0 
  DATA &H38 , &H0 
  DATA &HC  ,&H0 
  DATA &H3 , &H0 
  DATA &H0 , &H0 

PointerData7:
  ' multi-colored finger
  DATA 15,9,0,0
  DATA &H0000 , &H0000
  DATA &H0000 , &H8000
  DATA &H2000 , &H6000
  DATA &H5000 , &H7000
  DATA &H3800 , &H3800
  DATA &H1C03 , &H1C03
  DATA &H0E06 , &H0E07
  DATA &H070C , &H070E
  DATA &H038C , &H038C
  DATA &H01CC , &H01CC
  DATA &H00FC , &H00FC
  DATA &H01FC , &H01FC
  DATA &H01FC , &H01FE
  DATA &H00FA , &H00FD
  DATA &H0005 , &H000A
  DATA &H000A , &H0014
  DATA &H0000 , &H0000
 
PointerData8:
 ' multi-colored pencil
  DATA 16,13,0,0
  DATA &H0000 , &H0000
  DATA &H0000 , &H8000
  DATA &H6000 , &H6000
  DATA &H7000 , &H4000
  DATA &H3800 , &H0000
  DATA &H1C00 , &H0000
  DATA &H0E00 , &HC000
  DATA &H0700 , &HE000
  DATA &H0380 , &H7000
  DATA &H01C0 , &H3800
  DATA &H00E0 , &H1C00
  DATA &H0070 , &H0E00
  DATA &H0030 , &H0708
  DATA &H000C , &H039C
  DATA &H000C , &H01CC
  DATA &H0000 , &H00E0
  DATA &H0000 , &H0060
  DATA &H0000 , &H0000

PointerData9:
 ' test lines 
  DATA 7,9,0,0
  DATA &H0000 , &H0000
  DATA &HFFFF , &HFFFF
  DATA &HF001 , &HF001
  DATA &H0000 , &HFFFF
  DATA &HFFFF , &H0000
  DATA &HFFFF , &HAAAA
  DATA &HAAAA , &H5555
  DATA &HFFFF , &HAAAA
  DATA &H0000 , &H0000